#!/src/bin/perl 
$filename = "amants.txt";
open(FILEIN,$filename);
open(OUT,">sortie.html");
print OUT "<html><body style=\"color:white;\" bgcolor=\"black\">";
$k=0;
$nbre_ligne=0;
print "Donner un motif\n";
$motif=<>;
while ($ligne = <FILEIN>)
{
  if($ligne=~/([^<]+)$motif([^<]+)/)
  {
	$nbre_ligne+=1;
	print OUT "<p align=\"center\" style=\"color:white;\">";
	@tab = split(/ /,$ligne);
	for($i=0;$i <= $#tab;$i++)
	{
		    if(lc($tab[$i]) =~ lc($motif))
			{
 				print OUT "<b> $tab[$i]</b>";
				$k++;
			}
			else
			{
			    print OUT " $tab[$i]";
			}
	}
	print OUT "</p>";
  }
}
if($k!=0)
{
	print OUT "<p align=\"center\" style=\"color:yellow;\">Le nombre d'occurrence est $k dans $nbre_ligne lignes du fichier $filename</p>";
}
else
{
	print OUT "<p align=\"center\" style=\"color:yellow;\">Il n'y a aucune occurrence dans le fichier $filename</p>";
}
print OUT "</body></html>";
close(OUT);